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APPLESOFT® ENHANCEMENT UTILITY 
BY MARK SIMONSEN 

REQUIRES APPLE® lie / OR II or 11+ WITH RAM CARD (Language Card) 



BEAGLE BASIC puts Applesoft into RAM, 
letting you customize and enhance it— 

RENAME ANY COMMAND or Error 
Message. For program protection, encryp- 
tion, or even foreign translation. Even tiie new 
commands that follow are re-nameable — 

ELSE: Common in many programming lan- 
guages, but missing from Applesoft until 
now. ELSE follows If-Then's, like this— 
IFX=2THEN PRINT "Yes": ELSE PRINT "No" 

HSCRN: Read any Hi-Res point to deter- 
mine its current color (off/on status). Fast and 
simple — Useful in hi-res animation. 

SWAP: Normally, to swap two variables' 
values, you need a third variable and an extra 
split-second. SWAP X,Y exchanges variables, 
arrays or strings in one quick step. 
PAGE, MIX, RESL and MODE: 
No more awkward graphics screen-switch 
Pokes. For example, just type "PAGE1" or 
"PAGE2" to switch pages, instead of POKE 
-16300,0 or POKE -16299,0 {never look up 
those hard-to-remember Pokes again!). 

TONE: Beagle Basic's "TONE P, L" com- 
mand plays a note of Pitch P, Length L. It's 
simple— No Pokes or Calls are necessary. 

TXT2: Allows Text Page 2 to act exactly like 
Page 1, for printing, listing, catalogging, etc. 
Switching text pages opens up all kinds of 
new programming possibilities. 



ZERO MEMORY COST: Beagle Ba- 
sic's new commands cost you NO memory 
since they use only the space formerly occu- 
pied by otisolete Applesoft Cassette com- 
mands (like SHLOAD. STORE, etc.). 

GOTO & GOSUB may now be followed 
by variables. Use understandable commands 
such as "GOTO COUNTER" or "GOSUB 
SONG" (where COUNTER and SONG have 
been assigned line-number values). GOTO 
expressions too (as in GOTO X+100). 

ESCAPE-CURSOR: Normally, you can't 
tell if you are in Escape Mode (moving the 
cursor). With Beagle Basic, ESC temporarily 
changes the normal cursor to a flashing "+". 

BETTER BEEP: Apple's ctrl-G Bell can be 
turned into one of 256 more pleasing sounds. 
Even Apple error messages sound better! 

PLUS: New one-word commands to clear 
text, replacing Call-958 and Call-868. New 
command to SCROLL TEXT DOWN, not nor- 
mally possible before Beagle Basic. And... 

INVERSE REM STATEMENTS 

Makes remarks appear as bold stand-out 
headlines in your Applesoft listings. 

PLUS Apple Tip Book #6 

Included in this manual— A new collection of 
entertaining and useful Apple programming 
tips. Plus an 11x17 PEEKS & POKES Chart. 



INCLUDES FREE PEEKS, POKES & POINTERS WALL CHART 
AND APPLE TIP BOOK #6 
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BEAGLE BASIC was written by Beagle Bros 
programmer MARK SIMONSEN. Beagle Basic is compati- 
ble with any APPLE lie computer (or any APPLE II or 
APPLE 11+ with a RAM card or "language card"). 

Beagle Basic and APPLE TIP BOOK #6 (back half of 
this book) are published by BEAGLE BROS Micro Soft- 
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The Beagle Basic instructions and Apple Tip Book #6 
were written by MARK SIMONSEN and BERT KERSEY. 
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Technically, 
"BASIC" should 
always be capital- 
ized. We'd rather not 
conform. 



Beagle Basic Instructions 

What is BASIC? 

BASIC is your Apple's native language. Apple lie's and ll+'s 
are equipped with Applesoft Basic, while ancient (pre- 
1980) Apple 11 's came with Integer Basic hardware. Apple- 
soft, by far the most common "resident" language, 
determines exactly which words (or "commands") your 
Apple understands. It also determines what actions your 
Apple will take when each command or combination of 
commands is typed. Since Applesoft is stored in ROM 
(Read-Only Memory), it is normally unchangeable. The 
abilities and vocabulary given to your Apple by Applesoft 
are set in concrete. Permanent. Period. 

What is BEAGLE BASIC? 

Beagle Basic is a set of programs that let you enhance 
Applesoft and use new commands and features in your 
programs. It also lets you rename standard commands and 
error messages, for whatever reason you might have. Bea- 
gle Basic gets around Applesoft's "permanency" by mov- 
ing it from ROM into RAM (Random-Access Memory) or 
changeable memory. 



Don't do this now. 
Just read about it. 



A NEW BASIC IN AUXILIARY MEMORY 

When you boot a System Master disk on an Apple lie (or an 
Apple II or 11+ with a RAM card), the Hello program loads 
the "other" BASIC (Applesoft or Integer, whichever one is 
not built into your Apple) into memory "above" Apple's 
normal 48K. On an Apple Me or II+, you would then have 
Applesoft in ROM and Integer in RAM. You can switch 
between these two languages with DOS's FP and INT 
commands. 

Well, don't tell anyone where you read this, but Integer 
Basic is a worthless dinosaur! Nobody writes programs in 
Integer anymore. Yeah, sure, it's faster than Applesoft and it 
has a MOD function, but look at all it's missing. (See Appen- 
dix M of the Applesoft II Reference Manual or Appendix L 
of the equivalent lie Manual.) 
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There are two ver- 
sions of NEWBASIC 
on the Beagle Basic 
disk— 

"NEWBASIC HE' and 
"NEWBASIC II/II+-. 
Don't worry; the 
appropriate version 
will be accessed 
according to the type 
of Apple you are 
using. 



So, let's not load Integer as oursecond language in RAM. 
Instead, let's put an enhanced version oi Applesoft, called 
"NEWBASIC", there. Newbasic is loaded into memory by 
the "NEWBASIC LOADER" program. Your first job is to run 
the "CREATE NEWBASIC" program, select the Applesoft 
enhancements that you want and save them on disk as 
"Newbasic". Just like you can use cousin DOS Boss to 
change DOS, you can alter Apple's Applesoft vocabulary, 
and modify the way the Apple behaves when commands 
are typed. Beagle Basic gives you options of twenty brand 
new commands and two modified commands. 

If you program in Applesoft, you're going to have some 
fun with Beagle Basic. 



To make a back-up, 
use the COPYA pro- 
gram on your Sys- 
tem Master disk. 



Beagle Basic 
requires 64K or 
more. 



How to Use Beagle Basic 

Your original Beagle Basic disk is a normal DOS 3.3 disk. 
You can boot it, catalog it, save to it... and ruin it— Make a 
back-up copy please. 

Beagle Basic requires your Apple to have at least 64K of 
memory. If you have an Apple lie, you are set. If you have 
an Apple II or 11+ (normally 48K), it must be equipped with 
extra memory in the form of a RAM card (or "language 
card"). 

USING NEWBASIC 

To use your version of Newbasic (see top of this page), you 
must run the program called "NEWBASIC LOADER", which 
will load NEWBASIC into your Apple's auxiliary memory (our 
way of saying "RAM card" or "language card" or "bank- 
switched memory"). 
ENHANCING APPLESOFT 

Applesoft (or Newbasic) may be changed to perform many 
different functions. You must first enhance Applesoft, then 
sai^e the enhanced version on disk under the name "NEW- 
BASIC". Here's what you do: 

1. Boot the Beagle Basic disk. 

2. Run the program called "CREATE NEWBASIC". 

3. Use CREATE NEWBASIC to customize Applesoft by 
changing Its vocabulary and adding new commands. 

4. Save your enhanced version of Applesoft on disk under 
the name "NEWBASIC". 
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ENHANCING APPLESOFT 
WITH BEAGLE BASIC 



CREATE NEWBASIC 

CREATE NEWBASIC is the program on the Beagle Basic 
disk that lets you customize Applesoft and/or save it onto 
disk under the name "NEWBASIC". Boot the Beagle Basic 
disk and select (C), the CREATE NEWBASIC option, from 
the menu, or (Q), Quit, and type: 
RUN CREATE NEWBASIC (return) 

Create Newbasic's first job is to load some form of Apple- 
soft (modified or unmodified) into your Apple's auxiliary 
memory. Here's what happens when Create Newbasic 
runs: 

A. Create Newbasic will look for some form of Applesoft 
(normal or modified) in your Apple's auxiliary memory. 
If found, step D is next. 

B. Create Newbasic will look on the disk for a modified 
Applesoft file called "NEWBASIC" to be loaded into 
auxiliary memory. 

If found, step D is next. 

C. Create Newbasic will give up and transfer Applesoft 
from its normal ROM location into auxiliary memory. 

D. Create Newbasic will now display its Main Menu. 

The Main Menu 

Create Newbasic's Main Menu offers you five Applesoft 
change options on the screen, plus Save and Quit. Details 
for each option are printed on the page shown: 



(C) COMMAND EDITOR page 13 

(E) ERROR MESSAGE EDITOR page 15 

(L) LIST FORMATTER page 5 

(B) ADD NEW BASIC COMMANDS page 6 

(O) OTHER FEATURES page 11 

(S) SAVE NEWBASIC page 11 

(Q) QUIT page 11 



You can usually return to this Menu from Create Newbas- 
ic's various modes by pressing the ESC key or 1 (see 
keychart notes on page 12). 



MAIN MENU 
OPTION C 



MAIN MENU 
OPTION E 



Command Editor 

Every Applesoft command may be renamed to almost any 
word you want. See "Changing Commands and Error Mes- 
sages" on page 12 for instructions. 

Error Message Editor 

Applesoft error messages may be reworded too, for clarity 
or just for fun. See "Changing Commands and Error Mes- 
sages" on page 12. 



MAIN MENU 
OPTION L 



NOTE: If you want to 
change something In 
an inverse remark, 
don't cursor-trace over 
it. You must instead 
type over it, or re-type 
it completely. 

inverse Rems can 
t>e a problem In 
printer listings. See 
"Printer De-Bugger" 
on page 33 for a 
solution. 



List Formatter 

Selecting option L from the Main Menu presents you with 
three choices for changing Applesoft's rigid list format. 
Typing the letter (A, B or C) turns the corresponding fea- 
ture On or Off ("YES" or "NO" printed in inverse) in your 
Apple's memory. 

(A) INVERT REM STATEMENTS 

This is the most useful list-format option. Turning this fea- 
ture On ("YES") causes your program remark statements 
to be displayed in inverse type when listed. The word 
"Rem" will be inverse too (try renaming it to "]" to tone it 
down a bit). 



(B) CHANGE LIST WIDTH 

The width of your listings can be altered to be from 1 to 40 
characters wide. Normal is 33. Select option B and enter 
the width you want to try. If you change the list-width to 40, 
extra spaces won't be added in quote statements, and you 
won't have to POKE 33,33 before ESCape editing. 

(C) LIST INDENTATION 

The list indentation under each program line numtier may 
be changed from the standard 5 to any value from to 39. 
Select C and enter the number you want to try. The less the 
indentation, the more code you can squeeze on the screen. 



TO USE NEWBASIC 

(after you have CREATED it and SAVED it), 
RUN NEWBASIC LOADER. 
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Add New Basic Commands 

Newbasic gives your Apple more power by offering twenty 
all-new commands and two slighty-new ones, each one 
completely optional. Since the machine-language instruc- 
tions for every command must occupy a certain amount Of 
memory space (the amount depends on the complexity of 
the command), memory is "stolen" by writing over the 
space used by the least-used Applesoft commands. I'll bet 
my $64.95 joystick that you never use the cassette 
SHLOAD command. For that matter, who uses cassettes at 
all? Applesoft has several cassette commands that waste 
space. Let's put that space to better use. 

Here is a list of optional Newbasic commands and the old 
Applesoft ones that they replace. Type the letter to the left 
of the command to turn it On or Off ("YES" or "NO" in 
inverse). And remember, these commands may be re- 
named any time you want. See page 12. 



(A) ELSE (replaces cassette SHLOAD command) 
We've saved the best for first. ELSE is a common command 
in many programming languages, but missing from Apple- 
soft until now. It completes the IF-THEN statement but 
remains optional. This is how you use ELSE: 

10 PRINT "TYPE Y OR N ";: GET R5 

20 IF A$ = "Y" THEN PRINT "YES": ELSE PRINT "NO" 

ELSE makes Applesoft more "English-like" and friendly. It 
omits the need for another program line after an IF 
statement. 

Notice how ELSE's may be nested just like for-next loops: 

PRINT "TYPE Y OR N: : GET A$: PRINT 
PRINT "TYPE 1 OR 2: ";: GET B$: PRINT 
IF A$ = CHR$ (3) OR B$ = CHR$ (3) THEN END 
IF A$ = "Y" THEN PRINT "YES" : 
IF B$ = "1" IHEN PRINT "ONE": 
ELSE PRINT "TWO": 
ELSE PRINT "NO" : 

IF B$ = "1" THEN PRINT "ONE" : 
ELSE PRINT "TWO" 
GOTO 10 



ELSE will not be i-*) 
recognized by most 20 
renumber programs. 
You could use GPLE f ^ 
to change all ELSE's 40 
to LIST'S; renumber 
as usual; then 
change all LIST'S 
back into ELSE's! 



50 
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The next two new commands replace the cassette LOAD and 
SAVE commands, not DOS's LOAD and SAVE. The commands 
"LOAD filename" and 'SAVE filename" will still work fine. 

(B) SWAP (replaces cassette LOAD command) 
Here's the normal way to swap variable values X & Y: 
TEMP=X: X=Y: Y=TEMP 

Notice how a third variable was necessary (and an extra 
split-second of execution time). SWAP makes swapping 
(common in many sorting routines) much simpler 

10 A = 1.11:B = 2.22: PRINT A,B 
20 SWAP A,B: PRINT A,B 
30 SWAP A,B: PRINT A,B 

Notice that you can SWAP not only variables, but integers, 
strings, array values, and combinations of the above: 

10 A% = 1:B% = 2: PRINT A%,B% 
20 SWAP A%,B%: PRINT A%,B% 
30 SWAP A%,B%: PRINT A%,B% 

10 A$ = "A":B$ = "B": PRINT A$,B$ 
20 SWAP A$,B$: PRINT A$,B$ 
30 SWAP A$,B$: PRINT A$,B$ 

10 A(l) = 1:B(1) = 2: PRINT A(1),B(1) 
20 SWAP A(l) ,B(1) : PRINT A (1) ,B (1) 
30 SWAP A(l) ,B{1) : PRINT A(l) ,B(1) 

10 A(l) = 1:B = 2: PRINT A(1),B 
20 SWAP A(1),B: PRINT A(1),B 
30 SWAP A(1),B: PRINT A(1),B 



(C) TONE (replaces cassette SAVE command) 

Use TONE to play music without having to use any clunky 

Pokes or Calls. To play a note, use this command: 

TONE P, L 

The note's pitch P may be any value from to 255. The 
Turn to "Tone length L may range from to 65535. Some complete song 
Tunes" on page 34. recipss are printed in the tips section of this book. 



7 



(D) HSCRN (replaces cassette RECALL command) 
HSCRN tells you the "color" of any hi-res coordinate. It 
performs similarly to lo-res's SGRN{ function. Just type 
"HSCRN" followed by the hi-res coordinates you want to 

Notice tm HSCRN check. Then "PRINT PEEK(234)". (zero) means the point 
'^m^nT is black (off). 1 means the point is white (on). For example, 

to check location 275 (X), 10 (Y), do this: 
HSCRN 275,10: PRINT PEEK (234) 

Here is a program thatshootsawhite"bullet"atawhiteline. 

Give it a try: 

10 HOME : TEXT : HGR : PRINT "POW!!!": PRINT 
15 X = 17:Y = INT ( RND (1) * 99) + 5 
20 HCOLOR= 3: HPLOT 0,Y TO 279, Y 
30 FOR Y = 159 TO 1 STEP - 1 
40 HSCRN X,Y:HIT = PEEK (234) 

50 IF HIT THEN PRINT "A HIT!": HPLOT 12, Y - 3 TO 

18, Y + 3: HPLOT 12, Y + 3 TO 18, Y - 3: END 
60 HCOLOR= 0: HPLOT X,Y + 1 
70 HCOLOR= 3: HPLOT X,Y: NEXT 

Since Apple's hi-res colors are made up of black and white 
dots (the program below proves it by reading each dot in a 
green line), you won't be able to determine any colors with 
HSCRN. 

10 HOME : TEXT : HGR 
20 HCOLOR= 1: HPLOT 0,99 TO 279,99 
30 FOR X = TO 279: HSCRN X,99 
40 PRINT PEEK (234);: NEXT 

(E) SCRLDN (replaces cassette STORE command) 
Each SCRLDN command scrolls the text screen down one 
line, not a common occurence these days. 

10 TEXT : HOME : NORMAL 

20 PRINT "STAND BY. I'M POLISHING THE TV SCREEN..." 

30 FOR I = 1 TO 23: SCRLDN : NEXT : VTAB 24 

40 FOR I = 1 TO 23: PRINT : NEXT : GOTO 30 



NOTE: Selecting "YES" to add a new function automati- 
cally replaces some old command in the Command Editor. 
After that, you may rename the new command if you want. 
View changed commands with options C (from the Main 
Menu) and 6 or 7 (see keychart). 
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Scrolling up can be 
done by PRINTing 
at Vtab 24. 



In Immediate mode, 
PR# and IN# are 
always DOS 
commands. 



Naming this com- 
mand GR2" would 
be a problem; see 
page 14. 

Same re-locatlon 
commands as in 
program above. 

Before you can lo- 
res PLOT on page 2, 
you need to execute 
a TXT2 command. 



The following two commands replace BASIC'S IN# and PR# 
commands, not to be confused with DOS's IN# and PR#. It is 
always best to use the DOS versions of these commands from 
within programs. For example, PRINT CHR$(4)"PR#1" 

(F) TXT2 (replaces Basic IN# command) 

TXT2 reveals page 2 of text and lets you do everything there 

that you can do on page 1 . 

Since Applesoft programs normally use the same memory 
space that text page 2 uses, you must make your programs 
re-locate (actually re-RUN) themselves. Do that by adding 
the first line shown in this example. Warning: SAVE before 
you RUN! 

10 IF PEEK (104) < 12 THEN POKE 104,12: POKE 3 
072,0: PRINT CHR$ (4) "RUN TEXT TEST": REM 
THIS PROGRAM 

": TEXT : HOME : GOSUB 90 
TXT2 : HOME : GOSUB 90 
GET A$: PRINT A$ 
TEXT : GOTO 40 
TXT2 : GOTO 40 



20 A$ = "PAGE ONE,": 
30 A$ = "PAGE TWO.": 
40 VTAB 23: HTAB 22 
45 IF A$ = 
50 IF A$ = 
60 PRINT : 
90 FOR I = 



"2" 



THEN 
THEN 



PRINT "HUH?": END 
1 TO 93: PRINT A$; ; 



NEXT 



PRINT "SELECT PAGE (1 OR 2):": 



: VTAB 22: 
RETURN 



PRINT 



(G) G2 (replaces Basic PR# command) 

G2 works like GR but lets you access page 2 of lo-res. The 

same rules apply for lo-res page 2 as for text page 2 (see 

above). 

10 IF PEEK (104) < 12 THEN POKE 104,12: POKE 3 
072,0: PRINT CHR$ (4) "RUN LO-RES TEST": REM 
THIS PROGRAM 
TXT2 : HOME : G2 :X = 8:Y = 9 

FOR H = X TO 30 STEP 4: IF H < > 24 THEN FOR 
V = Y TO 13: COLOR= 5: HLIN H,H + 2 AT V: NEXT 
: COLOR= 0: PLOT H + 1,10: PLOT H + 1,12 
NEXT H: FOR I = 1 TO 10: READ H,V: PLOT X + H 
,Y + V: NEXT : DATA 1,4,2,3,2,4,5,4,9,2,10,1 
,14,1,14,3,20,1,22,3 



20 
30 



40 



Similar example on 
page 27. 



(H) CLRKEY (replaces Applesoft WAIT command) 
Use CLRKEY instead of POKE -16368,0 to clear the 
keyboard buffer. Like this: 

10 TEXT : HOME : PRINT ">"; 

20 KEY = PEEK ( - 16384): IF KEY < 128 THEN 20 
30 CLRKEY : REM TEST WITHOUT THIS COMMAND. 
40 PRINT CHR$ (KEY - 128 ); : GOTO 20 
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Since options I, J, and K (below) replace the same set of lo-res 
commands, only ONE of these options may be used at a time. 
(For example, if option K displays "—/NO" instead of "YES/NO", 
you need to turn OFF option I or J before you can use K.) 

(I) TEXT & BELL COMMANDS 

(replace PLOT, HLIN, VLIN and COLOR=) 

CLLN (for "CLear LiNe") replaces CALL -868 or ESC- 

E. Clears a text line from the cursor position to the right 
edge of the text window. 

CLDN (for "CLear DowN") replaces CALL -958 or ESC- 

F. Clears text from the cursor position to the bottom of 
the text window. 

SCRLUP replaces CALL -912. Scrolls text up a line. 

BELL replaces CALL -198 or PRINT CHR$(7). Rings 
Apple's control-G bell. You can even customize the bell 
itself; see next page. 

(J) HI-RES COMMANDS 

(replace PLOT, HLIN, VLIN and COLOR=) 

M0DE1 replaces POKE -16304,0 (graphics switch). 
MODE2 replaces POKE -16303,0 (text switch). 

MIXO replaces POKE -16302,0 (full-screen graphics) 
MIX1 replaces POKE -16301,0 (split graphics & text) 

PAGE1 replaces POKE -16300,0 (page 1 switch). 
PAGE2 replaces POKE -16299,0 (page 2 switch). 

RESL1 replaces POKE -16298,0 (lo-res switch). 
RESL2 replaces POKE -16297,0 (hi-res switch). 

(K) CURSOR COMMANDS 

(replace PLOT, HLIN, VLIN and COLOR=) 

CRSU moves the cursor up one line. 
CRSD moves the cursor down one line. 
CRSL moves the cursor left one character. 
CRSR moves the cursor right one character. 

10 TEXT : HOME : HTAB 6: SPEED= 255 
20 PRINT "<USELESS DATA, PLEASE riLE>" 

30 VTAB 11: FOR I = 1 TO 40: PRINT "-";: NEXT :SPEED= 150 

40 N = INT ( RND (1) * 3) : IF N THEN S = PEEK (49200) 

50 IF N = THEN CRSU : REM CURSOR UP 

60 IF N = 1 THEN CRSD : REM CURSOR DCWN 

70 PRINT "+";: IF NOT PEEK (36) THEN 10: ELSE 40 



DONT USE ANY OF 
THE COMMANDS ON 
THIS PAGE IF YOU 
WANT TO PROGRAM 
IN LO-RES. 
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MAIN MENU 
OPTION O 



ATTENTION 
GPLE'eri— 
DONT USE THIS 
FEATURE.! 



Other Features 

Two of the features below aren't really Applesoft changes; 
they are monitor changes. But Newbasic doesn't care; add 
them to your repertoire. 

(A) ADD ESCAPE-CURSOR 

(Won't work properly with GPLE in memory) 
The escape cursor indicates escape mode (moving the 
cursor for editing with ESC, then I, J, K, and M) by chang- 
ing the cureor to a flashing plus sign. Any non-cursor l<ey 
returns the normal cursor unharmed. 

(B) MODIFY BELL 

Newbasic lets you change Apple's bell value to make 
control-G sound lower with a longer duration, or higher 
with a shorter duration. Any number, 1 -99, may be entered, 
but the most interesting values are between 10 and 30. 

(C) MODIFY GOTO/GOSUB SYNTAX 

Normally the GOTO and GOSUB commands must be 
follov/ed by a line NUMBER (as in GOT0 12345). Selecting 
YES to this option lets GOTO and GOSUB precede a 
variable (as in GOTO JAIL) or an expression (as in GOSUB 
X+10). 

10 LOOK = 100:BOOGIE = 200:MARINE = 300:HALT = 66 

20 GOSUB LOOK: GOSOB BOOGIE: GOSUB MARINE 

30 FOB I = 1 TO 3: GOSUB I * 100: NEXT : GOTO HALT 

40 PRINT "DON'T PRINT THIS." 

66 STOP : REM PRINT "BREAK IN 66" 

100 PRINT "THIS IS LINE 100.": RETURN 

200 PRINT "THIS IS LINE 200.": RETURN 

300 PRINT "THIS IS LINE 300.": RETURN 



MAIN MENU 
OPTION S 



MAIN MENU 
OPTION Q 



Save Newbasic 

Once you have configured Applesoft the way you want it, 
you can save the set-up on disk under the name "NEW- 
BASIC". Select S from the Main Menu. (If you already have 
a file named "Newbasic" that you want to keep, exit the 
program now, RENAME it, type "RUN" and select SAVE 
ifrom the Main Menu.) 

Quit 

You may exit Create Newbasic by typing Q from the Main 
Menu. If you haven't saved the current Basic, you will be 
notified after quitting. To save after quitting, type "RUN" 
and then select option S. 
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Changing Commands and 
En'or Messages 

One of Beagle Basic's most interesting features is tlie abil- 
ity to change Applesoft's usually rigid commands and error 
messages. Run the CREATE NEWBASIC program and 
select C or E from the Main Menu (see page 4). 



The keychart is 
needed only for mak- 
ing changes to com- 
mands and error 
messages, not for writ- 
ing programs with 
Beaqle Basic. 



Beagle Baate Summary i; 




1 "CHEATE NEWBASIC" 
IS entianisd AntHesod on Oi 



TO ENHANCE AP91ESOFT; 

1. Boot Ihe aeaglo Basic 

2. Ma stHBCleO toHlurBS, 



TO LOAD A USE NEWBASIC 

INoIe NEWBASIC Ooes not ewsl until yon create it, ! 
1 Put Iha 'NEWBASIC and NEWBASIC LOADER " til 
2. Run "NEWBASIC LOADER to loaO "NEWBASIC it 



Keychart Commands 



BEAGLE BASIC 

by MARK StMONSEN 



1 MENU: RBI I 

2 EDiT: Move cur 

3 FIND: Enter cor 

4 90BT: Tempor 

8 REVEAL TOKEN: Mo« cursu- .l, w -..r^ 

B HIGHUQKT CHANGES: Temporary inverse 
7 HICHLfQHT STANDARD: Temporary inverse 

9 Starxiardizes all " " " 
• PWtJT OLBttlCW; SefidS currt 
PRINT SCREEN: Sends the cu 
"Apple Arro* Keys move the cun 



( part of "CREATE NEWBASIC" 



standard cc 



r message names [v 



(3) 



(5) 



Standvd Noimaize 



(7) 



(9) 



The Beagle Basic Key Chart 

Both the Command Editor and Error Message Editor utilize 
the keychart that came with your Beagle Basic disk. Fold 
and insert the chart behind the top row of keys on your 
Apple. Following are descriptions of each of the ten key- 
chart commands and instructions for changing Applesoft 
commands and error messages. 



1:MAIN MENU 

Return to the Main Menu (see page4) from Create Newbas- 
ic's various modes by typing 1 as noted on the keychart or 
by pressing ESC. 

2: EDIT (Commands or Error Messages) 
While in the Command or Error Message Editor, move the 
cursor to the command or message you want to edit 
(change), select keychart option 2 and type a new word or 
words and press Return. The new command or error mes- 
sage will immediately be in effect. To confirm this, you may 
return to the Main Menu (1), quit (Q) and give it a try. 
Usually you can return to Create Newbasic by typing 
"RUN" If you somehow zapped it with your test, you may 
have to type "RUN CREATE NEWBASIC." 
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Changing Commands 

To change any Applesoft command, or to see the com- 
mands currently in effect, type C from the Main Menu. You 
will enter the COMMAND EDITOR and the screen will be 
filled with the current Applesoft commands or 
"keywords"— that is, every word that you can type that 
your Apple will understand (except disk or DOS com- 
mands like CATALOG, UNLOCK, INIT, and so on). 

MOVE MODE: In the upper-left corner of the screen you 
will see the word "MOVE". This means you are in the 
"Cursor-Move Mode". The cursor is the inverse bar over 
one of the commands. To move this cursor, use the Left & 
Right Arrow Keys and the Up & Down Arrow keys (or use A 
& Z for up & down if you don't have an Apple lie). Move the 
cursor around now. I'll wait here... 

FREE CHARACTERS: The number after the word 
"FREE" in the upper-right corner of the screen indicates the 
number of spare characters remaining in the command 
table. For example, if you shorten the INVERSE command 
to "INV", you increase the number of free bytes by 4. If you 
change LET to "ASSIGN", you reduce the number of free 
bytes by 3. You cannot lengthen a command if you have no 
spare characters; you must shorten another command 
first. No command longer than the cursor, seven charac- 
ters, is allowed. 

EXPERIMENT: Change the HOME command to "CLS" 
(many languages use CLS to mean "Clear Screen").— 

1. After running Create Newbasic, select the Command 
Change Mode (C) from the Main Menu. You will see the 
current 107 commands on the screen. 

2. Use the Arrow Keys or the FIND option (page 16) to 
move the cursor to HOME (the 5th command down in 
the 4th column). 

3. Type 2 to edit the word. The word "EDITING" will 
appear in the upper-left corner of the screen, and the 
bar-cursor will change to a blinking square. 

4. Type "CLS" as the new command, and press Return. 
That's it! You have changed the HOME command to "CLS". 
You are now back in Move Mode and the free characters 
(upper-right of the screen) have been increased by one 
because "CLS" is one character shorter than "HOME". 
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Use the "SORT" 
option to compare 
current command 
names. 



Tokens are 
explained more on 
page 18. 



Later on, typing "CLS" will clear the screen. If you type 
"HOME", your Apple will grumble "7SYNTAX ERROR" 
(Computerese for "Never heard of it!"). 

To shorten INVERSE to "INV", move the cursor to 
INVERSE (7th word in the 1st column), and press 2 to edit. 
Use the Right Arrow key to trace over the I, N and V, and hit 
Return. Easy, right? And you have gained four more spare 
characters. Later on, typing "INV" will create inverse type as 
expected. Typing "INVERSE", however, will print "?SYN- 
TAX ERROR" in inverse, because your Apple tokenized 
"INVERSE" into two words; "INV" (which it recognized and 
executed) and "ERSE". "Erse" means nothing to most 
Apples, so 7SYNTAX ERROR. 

COMMAND RULES: New commands may contain no 
spaces, lower case or control characters. Other than that, 
all characters are legal. The position of the Caps Lock key 
on the lie has no bearing on input; all keystrokes are 
interpreted as upper case. Pressing Return will accept 
whatever has been entered up to the cursor. If the cursor is 
on the leftmost character in a command when you press 
Return, no change will occur. 

COMMANDS WITHIN OTHER COMMAND NAMES 
can be a problem if you don't watch out. For example, 
notice how HGR2 comes before HGR in the command 
table. If it didn't, and you typed "HGR2", Applesoft would 
scan the table, find "HGR" first, quit scanning and "parse" 
HGR2 into two words, "HGR" and "2". If you want to create 
a command name (like "GONOW") that starts with the 
same characters as another command (say "GO"), always 
put the longer command first in the command table. Com- 
mands that end with the same characters (like PLOT and 
HPLOT) are no problem. 



NOTE: You can test new commands and functions by 
quitting Create Newbasic (Main Menu option 0). Re-enter 
the program by typing "RUN" or "RUN CREATE NEW- 
BASIC". Be sure to SAVE (Main Menu option S) any ver- 
sion of Newbasic that you want to keep. 
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Changing Enor Messages 

Selecting option E from the Main iVIenu will enter the 
ERROR MESSAGE EDITOR which displays and lets you 
change Applesoft error messages, the words your Apple 
prints when an error is encountered. Operation of the Error 
Message Editor is similar to that of the Command Editor. 
Differences are pointed out below. 

EXPERIMENT: Change the message 7SYNTAX ERROR 
to '7TYPING GOOF!"— 

1. Select the Error Message Change Mode, E, from the 
Main Menu. You will see the current 17 Applesoft error 
messages on the screen, as well as the words "ERROR", 
"IN" and "BREAK". 

2. Use the Arrow Keys to move the cursor to SYNTAX 
(the 2nd error message down). Notice that word 
"ERROR" appears near the bottom of the screen and 
must be changed separately. (The "?" that precedes 
Applesoft error messages may be changed too. See the 
tip on page 32.) 

3. Type 2 to edit the message. The word "EDITING" will 
appear in the upper-left corner of the screen, and the 
bar-cursor will change to a blinking square. 

4. Type "TYPING" and hit Return. 

5. Move the cursor to ERROR, third word from the bot- 
tom, type 2 to edit, type "GOOF!" and hit Return. 

See page 32 for You have officially changed the ?Syntax Error message to 
new error m^ges. "?Typing Goof!". Later on, typing ah illegal statement (my 
favorite is "sdjaflkjfd") will produce a well-deserved ?Typ- 
ing Goof! message and a beep. The word "Goofl" will now 
follow ei^e/y Applesoft error message. Since "?illegal Quan- 
tity Goofl" and "?Out of Data Goofl" don't make a lot of 
sense, you may want to not change the word "Error". 

ERROR MESSAGE RULES: The Error Message Editor is 
not concerned with spare characters, because there are no 
spare characters; each error message is already at its maxi- 
mum length (the length of the cursor). Other rules are the 
same as for commands, except spaces are legal in error 
messages. 

"IN" and "BREAK" appear in messages like BREAK IN 
1234, and may be changed. 
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3: FIND (Commands only) 

From the Command Editor, typing a 3 will print the word 
"FIND:" on the screen. Enter any command's name and the 
cursor will move to that command. If the search is unsuc- 
cessful, the cursor will stay where it was. It's not necessary 
to type an entire command. For example, if you type "X" 
and press Return, the cursor will position itself at the first 
command that starts with an "X". 

4: SORT (Commands only) 

Pressing 4 will temporarily sort (alphabetize) the com- 
mands on the screen. If you want to send this list to your 
printer, press d (see next page). Pressing any key (like the 
Space Bar) returns the command order to normal, the 
order (left to right) in which they are stored in memory. 

Sorting lets you check to make sure you have not given 
the same name to two or more different commands. Doing 
so would disable one of those commands. 
Giving a BASIC command a DOS command name could possibly 
have the same effect. To play it safe, never give a BASIC com- 
mand a word that DOS uses— APPEND, BLOAD, BRUM, 
BSAVE, CATALOG, CHAIN, CLOSE. DELETE, EXEC, FP, INIT. 
INT, m, LOAD, LOCK, MAXFILES, MON, NOMON, OPEN, 
POSITION, PR#, READ, RENAt^E, RUN, SAVE, UNLOCK, 
VERIFY or WRITE. 

5: TOKEN NUMBER (Commands only) 
Pressing 5 while in the Move Mode will print the word 
"TOKEN" at the upper-left of the screen, erase the com- 
mand at the cursor and replace it with the hex and decimal 
values for that command's "token". Tokens are the 
numbers Applesoft assigns each of its keywords. Pressing 
any key (like the Space Bar or Return) will return you to 
Move Mode. 

6: HIGHLIGHT CHANGES 

(Commands or Error Messages) 
Pressing 6 will show you the changes that you have made. 
All non-standard commands or error messages (if any) will 
be highlighted in inverse. The word "CHANGED" will 
appear in the upper-left corner of the screen. Press any key 
to return to Move Mode. 
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7: HIGHLIGHT STANDARD 

(Commands or Error Messages) 
Pressing 7 will show you the standard version of each 
command or error message (if any) that has been changed. 
The word "STANDARD" will appear in the upper-left of the 
screen, and the original commands or error messages will 
appear in inverse. Press any key to return to Move Mode. 

8: NORMALIZE (Commands and Error Messages) 
Typing 8 followed by a Yes (when asked for approval) will 
normalize the names of all commands OR error messages 
(depending which is on the screen), setting them to their 
original state. If, for instance, you wanted to change new 
commands CLS and INV back to standard "HOME" and 
"INVERSE" you could use this function. BEWARE that all 
other command or error message changes will also be 
undone. NOTE that standardizing all command names 
DOES NOT standardize (or change in the least) the func- 
tion of any command. For example, if you have turned on 
the ELSE function (page 6), the command name ELSE will 
be standardized to "SHLOAD" but the function of the com- 
mand SHLOAD when executed in a program will still be 
that of ELSE. Confusing? Yes. Until you think about it for a 
week or so... 

The last two keychart commands Involve your printer. If you don't 
use a printer, don't use l<eyciiart options 9 and Zero, if your printer 
is connected to ottier ttian Slot 1, change the SLOT variable in 
Line 3 of the CREATE NEWBASiC program. 

9: PRINT OLD/NEW 

(Commands or Error Messages) 

Selecting 9 after entering the Command Editor or Error 
Message Editor will send a listing of all standard and 
revised Applesoft commands or error messages to your 
printer. Hex and decimal token numbers are printed adja- 
cent to commands. You must be in the Command Editor or 
Error Message Editor to use this function. 

O: PRINT SCREEN 

Selecting (Zero) will dump the current text screen to your 
printer. The most common use forthis feature is printing an 
alphabetized list of commands (keychart option 4), 
although it may be used anytime. 



17 



A complete list of 
tokens may be 
acquired by select- 
ing keychart option 
9 while In the Com- 
mand Editor. 



Beagle Basic and the Token System 

Applesoft has a 107-word "command table" stored in 
memory that contains "keywords" (words like PRINT, 
HOME, FOR, GOSUB, and so on) that are used by Apple- 
soft programs. For efficiency, every keyword is represented 
by a one-byte "token" or number. For example, instead of 
storing the command "PRINT" as five characters or bytes 
(P, R, I, N and T), it is stored as one byte— the value 186 
(hex $BA). 

When you type in a command like— 
HOME: PRINT X; -ABC" 

Applesoft converts all of the keywords into tokens by look- 
ing at its command table. Words that aren't recognized and 
characters between quote marks are represented by the 
ASCII value of each character. Like this: 

HOME is tokenized as 151 ($97) 

":" becomes 58 ($3A, the ASCII value of ":") 

PRINT is tokenized as 186 ($BA) 

X becomes 88 ($58, the ASCII value of X) 

; becomes 59 ($3B, the ASCII value of ;) 

" becomes 34 ($22, the ASCII value of ") 

A becomes 65 ($41, the ASCII value of A) 

B become® 66 ($42, the ASCII value of B) 

C becomes 67 ($43, the ASCII value of C) 

" becomes 34 ($22, the ASCII value of ") 

So a program is simply a series of tokens and ASCI I values. 
What words are displayed when you list depends on the 
words in the current command table. 

Beagle Basic lets you change the contents of the com- 
mand table by renaming keywords and storing the new 
words in memory. Let's say you change the keyword 
"HOME" to "CLS". Now when you type "HOME", Applesoft 
won't recognize it, and CLS will clear the screen. BUT if you 
load a program that contains the old HOME command 
(actually just the token for HOME) and you list it, you will 
see that CLS has automatically replaced each occurence of 
HOME. 

OR if you change HOME to CLS, and write a program full 
of CLS's, it will work fine with your version of Newbasic. If 
you now re-boot and use normal Applesoft, your program 
will still work, even though all of your CLS's will list as 
HOME'S. 
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New FUNCTIONS Need Newbasld 

Changing names of commands is one thing, but adding 
new functions lil<e ELSE or SWAP or TONE is another 
story. For these new functions to work properly, you MUST 
have the correct version of Newbasic loaded into memory. 
Othenwise, the machine language instructions that enable 
Applesoft to execute these functions just aren't there. Run- 
ning a program with non-standard Applesoft commands 
without Newbasic loaded will produce unpredictable 
results. 

Exiting Newlsasio— apple ii+ and lie 

There are two ways to exit Newbasic and re-instate normal 
Applesoft: 

1 . Boot with a normal disk. This is the "cleanest" way to 
leave Newbasic, because it completely normalizes your 
system. 

2. Or type "INT". This command normally would switch 
you to Integer Basic. With Newbasic in effect, INT 
instead switches you to Applesoft (without erasing your 
program) and prints "Language Not Available" on the 
screen (Integer wasn't found). If you want, you could 
use DOS Boss to rename "INT" to "ROM" and "Lan- 
guage Not Available" to "Applesoft Available" or some- 
thing else appropriate. 

NOTE: Pressing RESET will always leave you in New- 
basic with your program intact. FP will also always leave 
you in Newbasic, but with your program gone. 

Exiting NewlsasiO— apple II (integer machines): 

There are two ways to exit Newbasic and re-instate normal 
Integer Basic in your antique Apple: 

1. Boot with a normal disk. This is the "cleanest" way to 
leave Newbasic, because it completely normalizes your 
system. 

2. Type "INT". This command will switch you to Integer 
Basic and erase your program. 

NOTE: FP will return you to (or leave you in) Newbasic, 
with your program gone. 
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GPLE and Newbasic 

GPLE is compatible with Beagle Basic except for the fol- 
lowing things. Let us know if you find more. 

Thing #1: If you are using GPLE on the language card 
(GPLE version PLE.LC), it must be loaded before New- 
basic is loaded. 

Thing #2: Using the INT command with Newbasic and 
PLE.LC loaded won't exit Newbasic as described above. 
Don't use INT. 

Thing #3: Newbasic's ESCape cursor won't function 
properly with GPLE in memory. Sorry. 

Thing #4: CREATE NEWBASIC should not be run while 
GPLE.LC is in memory. Doing so will prevent parts of the 
program from working properly. 

Normal Location DOS Required 

DOS can't be in auxiliary memory (RAM card or language 
card) when using Newbasic. 



Dear Apple Programner , 

Hello out there. Beagle Bros' 
Apple TIP BOOK #6 starts on the 
following page. You will be pleased 
to know that all of the programs 
have been listed in standard 40- 
column format, so your listings, if 
typed correctly, will appear line- 
f or- line as you see them in print. 
Good luck! 

Oh, I almost forgot — One of 
thf qsphsbnt xjitm dbvtf zpvs Bqgnf 
up ej tjoufhsbuf ; J gpshfu xijdi pof. 

Zpvs gsjfoe, 
>.^H,a^A Vodmf Mpvjf 



Text Screen Formatter 

by Mark Simonsen 
Note: This program is Here's 3 bonus program that lets you format the40-column 
Basfcdisk ^^^'^ ^'^^^ screen the way you want it and convert the finished 
^"^ product into VTAB, HTAB and PRINT statements that can 

be appended to any Applesoft program. 

To begin, BLOAD TEXT SCREEN FORMATTER (or 
BRUM if you want) from the Beagle Basic disk. Then type 
"CALL 25000". The following commands will let you type 
and format text on the screen: 




Remove GPLE from 
your Apple for best 
results. 



TO MOVE THE CURSOR 

Left Arrow: l\^ove cursor left. 

Right Arrow: Move cursor right. 

Up Arrow: Move cursor up (non-lie; use control-A). 

Down Arrow: Move cursor down (non-lie; use control-Z). 

TO MOVE THE ENTIRE SCREEN 

(Keys are in diamond pattern.) 
control-S: Move screen left. 
control-D: Move screen right. 
control-E: Move screen up. 
control-X: Move screen down. 

TEXT APPEARANCE 

control-F: Flash, 
control-l: Inverse. 
control-N: Normal. 
ESC: Upper/lower case toggle. 

AND 

control-®: Clear the screen. 
control-C: Center text line. 
control-L: Clear to end of Line. 
control-P: Clear to end of Page 
control-W: Window toggle 
Return: Carriage Return. 

QUIT AND CONVERT 

control-Q: Quit and convert. 

When you quit (control-Q), any program in memory will be 
replaced by Applesoft statements that will print the screen 
the way you had it formatted; type RUN to check it out. If 
you don't like what you see, add a CALL 25003 as the last 
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program line and you will be put back in the Screen Editor 
when you RUN. To start over with a clean screen, CALL 
25000 again. 

The Applesoft code (without any Calls) may be saved on 
disk or appended to another Applesoft program. 

The default starting line and increment are both 10. To 
change them: 

POKE 25006, START-INT(START/256)*256 
POKE 25007, INT(ST ART/256) 
POKE 25008, INCREMENT 




Note: This program 
assumes that DOS rs 
in the normal 48K 
location. And it wipes 
out the semi-useless 
CHAIN command. 



We read Beneath 
Apple DOS every day; 
sometimes more often. 



I THINK I LIKEdN 
IT BETTER WHEN IT I 
JUST PRINTED THE ( 

ERROR MESSAGES..."/ 



ONERR TRY AGAIN... 

Don't you hate it when DOS gives you an error message 
like "File Not Found" just because you typed "RUN 
HELOO", or "I/O Error" because you put your disk in the 
drive sideways? The following program will put a small 
patch into DOS that, in the event of an error, causes the 
cursor to be put back on the same line as your previous 
typing statement. That way you can simply trace over your 
statement making corrections if necessary as you go. 

10 POKE 42751,76: POKE 42752,240 

: POKE 42753,164 
20 FOR I = 42224 TO 42235: READ 

BYTE: POKE I, BYTE: NEXT I 
30 DATA 165,37,233,4,32,91,251,1 
08,94,157,0,0 
Giving credit where credit is due— Don Worth and Pieter 
Lechner inspired us on this one. (They wrote Bag of Tricks 
and Beneath Apple DOS. Run out and buy one of each; 
we'll wait here...) We improved on their version by making it 
shorter and by moving it to another location in DOS so you 
can use it with ProntoDOS and other DOS modifications. 
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Warning: DO NOT run 
this program with the 
room lights off and the 
monitor contrast 
turned up full blast 
and your nose touch- 
ing the screen and 
your eyelids propped 
open. 



Color monitors are 
very helpful when 
viewing hi-res color. 



CURSOR MADNESS 

If Bert Kersey's text batons aren't enough for you— 
5 HOME :A$ = "!/-" + CHR$ (92) 
30 VTAB 7: FOR X = 1 TO 4: HTAB 

9: FOR Y = 1 TO 10: PRINT MID$ 

{A$,X,1);: NEXT : NEXT 
40 GOTO 30 

—try running the following program; the screen will be 
packed with text screen twirlers. You probably won't want 
to quit the program for several days, but when you do, 
RESET is the only way out. 

10 FOR I = 768 TO 814: READ V: POKE 
I,V: NEXT I: CALL 768 

20 DATA 162,4,169,0,141,16,3,169 
,4,141,17,3,189,42,3,141,1,6 
, 160 , 4 , 136 , 208 , 253 , 238 , 16 , 3 , 
208,243,238,17,3,172,17,3,19 
2,8,208,233,202,208,217,240, 
213,175,173,220,161 

WHAT'S HCOLOR=4 AND HCOLOR=7 
AND HCOLOR=5 ALL OVER? 

Who says that Apple ll's only have six hi-res colors? Run 
this program and you'll become a non-believer. 

10 TEXT : HOME : GR : HGR : REM 
GR SETS WINDOW BELOW HI-RES 

20 FOR I = 1 TO 6: READ C(I): NEXT 
: FOR I = 1 TO 6: READ C$(I) 
: NEXT 

40 FOR I = 1 TO 6: FOR J = 1 TO 
6 

50 HOME : PRINT C$(J);: IF J < > 

I THEN PRINT " + "C$ (I) 
60 FOR Y = 22 TO 149 STEP 2: HCOLOR= 

C(I): HPLOT 32, Y TO 247, Y 
70 HCOLOR= C(J): HPLOT 32, Y + 1 TO 

247, Y + 1: NEXT Y,J,I 
110 DATA 0,1,2,3,5,6,BLACK,GREEN 

, VIOLET , WHITE , ORANGE , BLUE 
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ONERR REPAIR 

Due to a quirk in the ONERR system, this program will 
crash after the 85th error. Hold control-C down (and REPT 
if necessary) to cause an error and a jump to line 30. 

10 ONERR GOTO 30 
20 GOTO 20 

30 PRINT "ERROR # "ERR: ERR = ERR 

+ 1: GOTO 20 
Adding a CALL-3288 fixes the bug. 

10 ONERR GOTO 30 
20 GOTO 20 

30 PRINT "ERROR # "ERR: ERR = ERR 
+ 1: CALL - 3288: GOTO 20 

CALL THIS NUMBER 

Here's one that will really confuse the gang— 

CALL 64246 

We would explain it to you, but no one has explained it to us 
yet. Apparently it has something to do with the position of 
the Moon... 

lie FLICKERBUG 

Have you noticed the flicker you get on the lie's text and hi- 
res page 2? This program shows it at its worst: 

Apple lIVs don't seem 10 HGR : POKE 28,127: CALL - 30 
to have this problem. g2 . pjQR2 

20 FOR I = 1 TO 10: LIST : NEXT 
: TEXT 



Please don't write us 
with the reasons for 
this bug. 

Oh, never mind; go 
ahead. 
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MEM COMPARER 



This program will compare two ranges of memory such as 
two hi-res pictures or two machine language programs, 
printing the bytes that are different. 



OS and OE are ■Old 5000 N = OS:LOC = 60: GOSUB 5020 
eI^"^ Sons" MS 5001 N = OE:L0C = 62: GOSUB 5020 

ie "Moui Qtart" _ _ _. 



5002 N = NS:LOC = 66: GOSUB 5020 
5010 POKE 768,160: POKE 769,0: POKE 
770,76: POKE 771,54: POKE 77 
2,254: CALL 768: RETURN 
5020 POKE LOC,N - INT (N / 256) 
* 256: POKE LOG + 1, INT (N 
/ 256) : RETURN 



HIDING AMONGST THE BUFFERS 



One of the best places to put a small machine language 
program (besides under the bed) is between DOS and its 
buffers. That way, your code can't be zapped by FP, RESET 
and other would-be attackers. To make room for a program 
do this: 

POKE 40193,PEEK(40193)-N 
CALL 42964 

This will allocate N*256 bytes of safe space. To de-allocate 
the space do this: 

POKE 40193,PEEK(40193)+N 
CALL 42964 

If you've got GPLE or Double-Take or some other program 
hanging around in your Apple, no guarantees. 




26 



KEYPEEKER 

To see if someone has pressed a key without having to wait 
until they do it (as is the case with GET) use some kind of 
loop with K=PEEK(-16384) in it. If K is greater than 127 then 
a key has been pressed, and you can jump out of the loop. 
Using A$=CHR$(K-128) will set up A$ as though you had 
used the GET function. Don't forget to do a POKE -16368,0 
(or Beagle Basic's CLRKEY; see page 9) to clear the key- 
board buffer for the next time around. 

Here's an example: 



GPLE's typeahead -, ~ 

buffer (certain GPLE J-W 

versions only) prevents pp| 

the l<eypeeker from " 

virarlting. We recom- 25 
mend running the 

"Config.GPLE" pro- 30 

gram to cancel the ,- 

buffer's effects. J J 

40 
45 
50 



PRINT "PRESS A KEY." 

K = PEEK ( - 16384) 
IF K < 128 THEN 20 
POKE - 16368,0 

A$ = CHR$ (K - 128) 
FOR I = 1 TO 40 
PRINT A$;: NEXT 
GOTO 10 




BLOAD 
DETECTORS 

If you Bload a binary file without telling it where to load, 
with a command like "BLOAD FILE", it will load to the 
location in memory from which it was saved. (Read that 
sentence again.) If you specify a starting location in a 
command like "BLOAD FILE, A12345", the file will, of 
course, load to the specified location. 

These two statements will tell you the starting location 
and length of a file immediately after a BLOAD: 

ADDR = PEEK(43634) + PEEK(43635) * 256 
LENG - PEEK(43616) + PEEK(43617) * 256 

If you like to think in hex, CALL -151 to enter the monitor, 
and type "AA60.AA73". The first two bytes printed will be 
the Length and the last two will be the start Address (in 
low-byte/high-byte order, of course). 
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One of our program- 
mers exits to FID'S 



PEEK-POKE MEM-MOVE 

Check out our latest Peeks & Pokes chart. It has a memory 
move routine that uses Apple's built-in CALL -468. And it 
works! 

FID-QUITTER 

drfve"door°duringdisk isfine, but you've got to live With some of its quirks. For 
access. He once went example, it's hard to exit FID at certain times. Well, use that 
SJithoufd^V'^nga o'^ program killer, control-RESET. Then, to re-enter FID, 
disk. just CALL 2051 . 

TEXT SCREEN MEM VALUE 

Here's a good way to determine the actual memory loca- 
tion of any text screen position: 

10 TEXT : HOME : PRINT "TEXT SCR 
EEN LOCATION:" 

20 INPUT "X=";X: INPUT "y=";Y 

30 VTAB Y: HTAB X 

40 P = PEEK (40) + PEEK (41) * 

256 + PEEK (36): VTAB 4: PRINT 
: PRINT "MEMORY LOCATION ";P 

HI-RES MEM VALUE 

And here's a program that determines the memory location 
of any hi-res plot: 

10 TEXT : HOME : INPUT "HI-RES P 

AGE 1 OR 2?";PG 
20 INPUT "X=";X: INPUT "y=";Y 
30 POKE 230, PC * 32: HPLOT X,Y 
40 PRINT : PRINT "MEMORY LOCATIO 

N="; PEEK (38) + PEEK (39) * 

256 + PEEK (229) 
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DEC DUMPER 

Warning: This is a The Apple monitor has the ability to dump a range of 
d^™g ontour"' memory in hex. Running the program below will set up a 
level of programming, short machine language routine at 768 ($300) that will 
No^charge for this ^^^^ memory in decimal rather than hex. It is invol<ed by 
using the & command. For example, to look at hi-res page 
1 , enter the start and end addresses separated by commas 
after the "&" (lil<e this: &8192, 16383). 

10 FOR I = 768 TO 875: READ V: POKE 
I,V: NEXT I: POKE 1014,0: POKE 
1015,3 

20 DATA 160,0,32,183,0,32,12,218 
,165,80,133,60,165,81,133,61 
,32,183,0,201,44,208,14,32,1 
77,0,32,12,218,165,80,133,62 
,165,81,133,63,76,70,3,32,14 
2,253,173,0,192,201,131,240, 
55 

30 DATA 165,61,166,60,32,36,237, 
160,0,169,173,76,237,253,165 
,60,41,7,208,8,32,40,3,169,4 
,141,108,3,173,108,3,24,105, 
4,141,108,3,133,36,177,60,17 
0,169,0,32,36,237,160,0,32 

40 DATA 186,252,144,216,96,104,1 
04,96 




CURSORS 
FOILED AGAIN 

Run this program and watch that flashy cursor of yours 
screech to a grinding halt. 

10 FOR I = 768 TO 806: READ V: POKE 
I,V: NEXT : CALL 768 
„ 20 DATA 169,11,133,56,169,3,133, 
^Te^r^iPe^r^ 57,76,234,3,72,41,63,9,0,145 

ing cursor. We kind ^ ^ ^ 230 , 78 , 208 , 2 , 230 , 79 , 

44,0,192,16,245,145,40,173,0 
,192,44,16,192,96 
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This program stores 
machine language 
instructions in the 
mysterious blanl« spa- 90 
ces found in high-res 
picture data. 

30 



40 
50 



BRUN HI-RES PIX! 

You know what happens if you unknowingly BRUN 
(instead of BLOAD) a hi-res picture... Crashola!! 

And you know what a pain it is to select a picture's page 
number and full- or split-screen status with all of those 
dumb Pokes? 

Boy, have we got a Tip for you!— Now you (Dan update 
your hi-res pictures so they are not only BRUNnable, but 
they become VISIBLE when you BRUN them, on either 
hi-res page, split-screen or full. Never mess with Bloading 
and Poking again! 

Just run this little program. It does all the magic for you. 

10 INPUT "NAME OF PICTURE? ";PN$ 



PRINT "LOAD TO PAGE 1 OR 2? " 

;: GET P$: PRINT 
IF P$ < > "1" AND P$ < > "2 

" THEN 20 
P = VAL (P$):AD = P * 8192 
PRINT "DISPCAy 4 LINES OF TEX 

T AT BOTTOM? ";: GET T$: PRINT 



60 IF T$ < > "Y" AND T$ < > "N 
" THEN 50 
T = 1: IF T$ = "N" THEN T = 
PRINT "LOADING..." 
PRINT CHR$ (4) "BLOAD "PN$",A 
"AD 

PRINT "CHANGING..." 
110 Pi = PEEK (AD):P2 = PEEK (A 
D + 1) :P3 = PEEK (AD + 2) 
POKE AD, 76: POKE AD + 1,120: 

POKE AD + 2,32 * P 
POKE AD + 120,169: POKE AD + 
121, Pi: POKE AD + 122,141: POKE 
AD + 123,0: POKE AD + 124,32 
* P: POKE AD + 125,76: POKE 
AD + 126,248: POKE AD + 127, 
32 * P 



70 
80 
90 

100 



120 



130 



30 



150 




Remember, your pro- 
gram should list line- 
for line like the one 
printed here. 



AD + 

32 * 
POKE 



140 POKE AD + 248,169: POKE AD + 

249, P2: POKE AD + 250,141: POKE 
AD + 251,1: POKE AD + 252,32 

* P: POKE AD + 253,76: POKE 
254,120: POKE AD + 255, 
P + 1 

AD + 376,169: POKE AD + 
377, P3: POKE AD + 378,141: POKE 
AD + 379,2: POKE AD + 380,32 

* P: POKE AD + 381,76: POKE 
AD + 382,248: POKE AD + 383, 
32 * P + 1 

160 POKE AD + 504,44: POKE AD + 

505,80: POKE AD + 506,192: POKE 
AD + 507,76: POKE AD + 508,1 
20: POKE AD + 509,32 * P + 2 



170 



180 



190 



200 
210 



POKE AD + 632,44: POKE AD + 

633.82 + T: POKE AD + 634,19 
2: POKE AD + 635,76: POKE AD 

+ 636,248: POKE AD + 637,32 

* P + 2 

POKE AD + 760,44: POKE AD + 

761.83 + P: POKE AD + 762,19 
2: POKE AD + 763,76: POKE AD 

+ 764,120: POKE AD + 765,32 

* P + 3 

POKE AD + 888,44; 
889,87: POKE AD + 
AD + 891,96 
PRINT "SAVING..," 
PRINT CHR$ (4)"BSAVE "PN$", 
A"AD",L8192" 



POKE AD + 
890,192: POKE 



A three-byte catch: If you BLOAD a converted picture, the 
first three bytes (upper-left sliver of the screen) will be 
flawed. To fix the flaw, simply CALL 8192 (page 1 pics) or 
CALL 16384 (page 2). And, if you want to convert a 
BRUNnable picture back to normal, just BRUN it, then 
BSAVE it with normal procedures. 
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I JUST LOVE MY 
APPLE. I RUN THIS 
PROGRAM WHENEVER 
I GET A CHANCE 



TERROR !FIXER 

With Newbasic loaded, you can 
replace the "?" In front of error 



^ ^^^^rdll% messages to any character you 
^Beagle Bros Shipping Deptjl want. Just run thls program: 

10 FOR T ="'768 TO 782: READ BYTE 

: POKE I, BYTE: NEXT 
20 PRINT "ENTER THE NEW CHARACTE 

R: ";: GET A$: PRINT A$ 
30 IF A$ < " " THEN 20 
40 POKE 775, ASC {A$): CALL 768 
100 DATA 44,131,192,44,131,192,1 
69,255,141,91,219,44,128,192 
,96 

ERROR TESTING 

Test your new Newtsasic error messages— Typing each of 
the commands below (without line numbers) will reveal the 
equivalent of the message shown. Each command as- 
sumes memory has been cleared. Type "FP" if it hasn't. 
To get this message... type this: 

?Next Without For NEXT 

?Syntax GARBAGE 

?Return Without Gosub . . RETURN 

?Out of Data , . . . . PRINT: READ A 

?lllegal Quantity VTAB 25 

?Overflow PRINT 10 ^ 39 

?Out of Memory HIMEM: 

?Undef'd Statement GOTO X 

?Bad Sut3script PRINT A(11) 

?Redim'd Array DIM A(1): DIM A(1) 

?tllegal Direct READ A 

?Division by Zero PRINT X/0 

?7ype Mismatch A$=2 

?String Too Long FOR X=1 TO 256: 



?Formula Too Complex . . IF "X" THEN IF "X" THEN ?X 



A$=A$+"A": NEXT 



?Can't Continue . 
?Undef'd Function 



CONT 

PRINT FN X(X) 



The variable I is the 
starting position (in 
the long string) of the 
found substring. 



You know why the 
variable I is used so 
much by us pro- 
grammers in for-next 
loops? We think it's 
because I stands for 
Increment. 



Add this program to a 
routine that turns on 
your printer, prints, 
and then turns the 
printer off. 



SUBSTRING SEARCH 

Some computer languages have a command that will 
search for a substring within a larger string. The subroutine 
starting at Line 100 gives Applesoft that ability. The lines 
before 100 are just an example of how to use it. 

10 TEXT : HOME 

20 S$ = "THIS SENTENCE TESTS THIS 

PROGRAM FOR YOU": PRINT S$ 
30 PRINT : PRINT : INPUT "STRING 

TO FIND:";FIND$: GOSUB 100 
40 IF FOUND THEN INVERSE : VTAB 

1: HTAB I: PRINT FIND$: NORMAL 
: END 

50 PRINT "(NOT FOUND)": END 

100 FOR I = 1 TO Lm (S$) 

110 K = I:FOUND = 1 

120 FOR J = 1 TO LEN (FIND$) 

130 IF MID$ {FIND$,J,1) < > MID$ 

(S$,K,1) THEN 3 = Lm (FIND 

$) :FOUND = 
140 K = K + 1: NEXT J 
150 IF FOUND THEN RETURN 
160 NEXT 1:1 = 0: RETURN 

PRINTER DE-BUGGER 

If you've ever shouted obscene machine code at your prin- 
ter for doing 47 line feeds, 192 carriage returns and 16 
beeps when you listed a program with embedded control- 
characters or catalogged a disk with inverse file names, this 
program's for you. After you RUN this program (only once 
please), do a PR#1 to turn on your printer, then CALL 768. 
All control characters will be sent to the printer as lower 
case. Inverse and Flashing characters will be printed as 
normal. 

10 FOR I = 768 TO 810: READ V: POKE 
I,V: NEXT I 

20 DATA 169,11,133,54,169,3,133 
,55,76,234,3,201,141,240,25, 
201,32,176,2,9,192,201,96,17 
6,2,9,128,201,128,176,3,24,1 
05 , 64 , 201, 160 , 176 , 2, 9 , 96 , 76 , 
2,193 
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DOS 5^ APPLESOFT BAStC BASIC MONITOR FRED 



TONE TUNES 

Here's a hit song or two you can type and play on your 
Apple. All use the new Beagle Basic TONE command, 
which you must have activated (see page 7). 

10 DIM PITCH (21) 

20 FOR I = 1 TO 21: READ PITCH (I 

) : NEXT 
30 GOSUB 100 

40 FOR I = TO IrTIME = 126 

50 FOR J = 1 TO 7 

60 IF J = 7 THEN TIME = 252 

70 TONE PITCH (J + 14) , TIME 

80 NEXT : NEXT 

90 GOSUB 100: END 

100 FOR I = TO 1:TIME = 126 

110 FOR J = 1 TO 7 

120 IF J = 7 THEN TIME = 252 

130 TONE PITCH (J + I * 7) ,TIME 

140 NEXT : NEXT : RETURN 

200 DATA 63,63,127,127,140,140,1 

27 , 110 , 110, 103 , 103 , 83 , 83 , 63 , 

127,127,110,110,103,103,83 



Entire 


10 


L = 5:A = 0:B = 255:S = 10 




Tone 


20 


HOME : FOR P = A TO B STEP 


S 


Range: 


30 


VTAB 9: HTAB 17 






40 


PRINT "PITCH=";P;" " 






50 


HTAB 17: PRINT "LENGTH=";L 






70 


TONE P,L: NEXT 






90 


S = S * - 1:A = 255 * (S < 


0) 



:B = 255 * (S > 0): GOTO 20 



Twinkle, 
Twinkle, 
etc. 
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Scale: 



10 FOR X = 1 TO 36: READ PITCH, K 
EY$: TONE PITCH, 20: PRINT PI 
TCH;"=";KEY$: NEXT 

100 DATA 13,G,25,G#,39,A,51,A#,6 
3,B,73,C,83,C#,93,D,103,D#,1 
10, E,119,F,127,F#, 134,0,140, 
G# , 147 , A, 153 , A# , 159 ,B , 164 ,C, 
169,C#,174,D,179,D#,183,E,18 
7,F,191,F#,195,G,198,G#,201, 
A,204,A#,207,B,210,C,212,C#, 
215 ,D, 217 ,D# , 219 ,E, 221 ,F , 223 



Messing 
Around 



10 
20 
30 
40 
45 
50 



* 
* 



HOME : INVERSE 
P = INT ( RND (1) 
L = INT ( RND (1) 

VTAB L: HTAB P 

PRINT CHR$ (L + 64); 

TONE P,L: GOTO 20 



40) 
23) 



+ 1 
+ 1 




You could also write a 
routine that prints 
copy flush right. 



CENTERSTRING 

This subroutine is for tliose of us that are too lazy to figure 
out the correct HTAB for centering words on the screen. To 
use it, set A$ equal to the string to be printed and then 
GOSUB500. 

10 HOME :A$ = "< CENTER 

— >": GOSUB 500 :A$ = "ALMOST 
ANYTHING": GOSUB 500 :A$ = " 
IN A FLASH!": GOSUB 500 

499 END 

500 H = 21 - ( LEN (A$) / 2): HTAB 

H: PRINT A$: RETURN 
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Type in this program to make good use of the "SHAPE TABLE" file (actually 
a deck of cards!) on the Beagle Basic disk. Feel free to add enhancements 
such as betting, doubling down, cheating by looking at the deck, and so on. 
Call us when you're finished; Beagle Bros pays a hefty y4% royalties on 
computer Blackjack games! 



100 DIM DECK(51,1) : TEXT : HOME 

: VTAB 9: PAUSE = 150 
110 PRINT "BLACKJACK": PRINT 

: PRINT : PAUSE = 99: GOSUB 4 

000: INPUT "WHAT IS YOUR NAM 

E? "; NAMES: HGR 
120 IF NAME$ = "" THEN RUN 
130 PRINT CHR$ (4);"BL0AD SHAPE 
TABLE": POKE 232,0: POKE 23 

3,64: SCALE= 1 
140 GOSUB 5000 

150 POKE 28,42: CALL - 3082: HCOLOR= 
3: HOME : GOSUB 160: GOSUB 1 
60: GOTO 36fl 

160 GOSUB 6000 

170 COUNT (1) = COUNT(l) + 1 

180 X = (COUNT (1) - 1) * 50 + 20: 

Y = 10: GOSUB 1000 

190 IF CARD > 10 THEN CARD = 10 
200 IF CARD = 1 AND ACE(l) = THEN 

CARD = 11:ACE(1) = 1 
210 PNTS(l) = PNTS(l) + CARD: IF 

PNTS(l) > 21 AND ACE(l) = 1 THEN 

PNTS(l) = PNTS(l) - 10:ACE(1 

) = 

220 IF COUNT (1) = 5 AND PNTS(l) < 
= 21 THEN COUNT (0) = 0: GOSUB 

250: GOTO 7070 
225 IF PNTS (1) > 21 THEN VTAB 2 

2: PRINT "<BUST>": PAUSE = 99 

: GOSUB 4000 
230 RETURN 
250 GOSUB 6000 
260 Nl = Nl + 1 

270 IF N2 = 2 THEN COUNT (0) = CO 

UNT(0) + 1 
280 COUNT (0) = COUNT (0) + 1 
290 X = (COUNT (0) - 1) * 50 + 20: 

Y = 80: GOSUB 1000 

300 IF CARD > 10 THEN CARD = 10 
310 IF CARD = 1 AND ACE (0) = THEN 

CARD = 11:ACE'(0) = 1 
320 PNTS(0) = PNTS(0) + CARD 



330 IF PNTS{0) > 21 AND ACE(0) = 
1 THEN PNTS(0) = PNTS(0) - 1 
0:ACE(0) = 

340 IF COUNT (0) = 5 AND PNTS(0) < 
= 21 THEN 7120 

350 RETURN 

360 COUNT (0) = COUNT (0) + 1 

370 X = 20 :Y = 80: GOSUB 2000: GOSUB 

3000: GOSUB 250 
380 IF PNTS (1) > 21 THEN COUNT (0 

) = 0: GOSUB 250: GOTO 7120 
390 POKE - 16368,0: VTAB 22.: PRINT 

"ANOTHER CARD (Y/tC)? ";: GET 

A$: PRINT A$: HOME 
400 IF A$ = CHR$ (27) THEN HOME 

: VTAB 21: END 
410 IF A? = "N" OR A$ = "n" OR A 

$ = CHR$ (32) THEN 7000 
420 IP A$ < > "Y" AND S$ < > " 

y" THEN 390 
430 GOSUB 160: GOTO 380 
1000 GOSUB 2000: ROT= 0: XDRAW C 

ARD AT X + 1,Y + 1: XDRAW SU 

IT AT X + 1,Y + 9 
1010 ROT= 32: XDRAW CARD AT X + 

39, Y + 49: XDRAW SUIT AT X + 

39, Y + 41: RETURN 
2000 HCOLOR= 3: FOR I = X TO X + 

40: HPLOT I.Y TO I,Y + 50: NEXT 

2010 HCOLOR= 0: HPLOT X - 1,Y - 
1 TO X + 41, Y - 1 TO X + 41, 
Y + 51 TO X - 1,Y + 51 TO X - 
1,Y - 1: RETURN 

3000 HCOLOR= 0: FOR I = X + 1 TO 
X + 40 STEP 3: HPLOT I,Y TO 
I,Y + 50: HPLOT I + 1,Y TO I 
+ 1,Y + 50: NEXT : RETURN 

4000 POKE - 16368,0: FOR I = 1 TO 
PAUSE: IF PEEK (, - 16384) < 
128 THEN NEXT : RETURN 

4010 I = PAUSE: NEXT : RETURN 
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5000 FOR I = TO 51:DBCK(I,0) = 

0: NEXT 
5010 FOR I = TO 51 
5020 J = INT ( RND (1) * 52): IF 

DECK (J, 0) THEN 5020 
5030 HOME : VTAB 22: HTAB 1 + I - 
INT (1/2) * 2: PRINT "<SH 

UFFLINO"; 
5040 DECK(J,0) = ■1:DECK(I,1) = J: 

NEXT :DPTR = 0: HOME : RETURN 

6000 IF DPTR > 51 THEN GOSUB 50 
00 

6010 CARD = DECK (DPTR, 1) :DPTR = D 

PTR + 1 

6020 SUIT = INT (CARD / 13 + 14) 

6030 CARD = im (((CARD / 13) - 
INT (CARD / 13)) * 13 + 1.0 
5) 

6040 RETURN 

7000 IF PNTS (0) > 21 THEN 7070 
7020 IP PNTS(0) > = PNTS(l) THEN 
7120 

7030 IF Nl = 1 THEN COUNT (0) 



7040 



7050 

7060 
7070 



7080 
7090 



7100 



7110 
7120 



7130 




IF PNTS(l) > PNTS(0) THEN IF 
PNTS(0) < 18 THEN N2 = N2 + 
1: GOSUB 250 

IF PNTS(l) > PNTS(0) AND PN 
TS(0) > =17 THEN 7070 

GOTO 7000 

VTAB 22: PRINT "<";NAME$" W 
INS>":PAUSE = 150: GOSUB 400 


GAMES (1) = GAMES (1) + 1 

VTAB 24: PRINT "SCORE: DEAL 
ER ";GAMES(0)", ";NAME$;" "; 
GAMES (1);: PAUSE = 300: GOSUB 
4000: HOME 

COUNT (1) = 0:COUNT(0) = 0:PN 
TS(0) = 0:PNTS(1) = 0:N2 =■ 
:Nl = 0:ACE(1) = 0:ACE(0) = 


GOTO 150 

IF PNTS(l) = PNTS(0) THEN VTAB 
22: PRINT "<PUSH>": PAUSE = 1 
50: GOSUB 4000: GOTO 7090 

VTAB 22: PRINT "<DEALER WIN 
S>": PAUSE = 150: GOSUB 4000: 
GAMES (0) = GAMES (0) + 1: GOTO 
7090 



10 PRINT (□riR$(ASC 
(CHR$(ASC(CHR$ 
(ASC("F")/(ASC 
("P")/8))))) 
GOTO 10 



strange problems if 
you don't follow our 
advice here. 



NO-RUN BOOT TIP 

Did you know that if you press control-C while booting, the 
disk's Hello program won't be executed? We use this trick 
to keep Integer BASIC from loading when we boot the 
System l\/laster disk, and to prevent GPLE from loading too. 

GPLE NO-NO 

Listen to us and there won't be any trouble— NEVER INIT 
A DISK WITH GPLE^ ("PLE^") IN MEMORY. Instead, 
before INITializing, re-boot and use the previous tip to 
prevent GPLE from loading. Thank you. 
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GR2? 

GR2 would have prob- It's easy to find out What page2 of lores graphics looks like. 

^ You don't even have to know any pokes for this one. Just 

legitimate command. „. . 

See page 9. type HGR2 : GR . These commands uncover a minor a 

bug in Applesoft. GR doesn't set the display to page 1 as 
TEXT and HGR do; it assumes you're already on page 1 . By 
the way, if you're still looking at that colorful garbage and 
want to get back to normal text page 1, just type "TEXT". 

ESC-ARROWS 

On an Apple lie, hitting ESC followed by the four arrows is 
just like ESC followed by I, J, K, or M. Don't you wish they 
had put the Up-Arrow above the Down-Arrow, instead of to 
the right of it? Why don't you call Apple Inc. for us and 
complain? (Ask for Steve.) 

GET IT RIGHT 

When your program requests numerical input via the GET 
command, use GET A$ : A=VAL(A$) rather than GET A. 
This prevents an unwanted ?Syntax Error if a non-number 
is entered. 

lie AUTO-SHIFT 

Here's another small difference between the 11+ and the He. 
On a II+, if you type control-2 you get a 2. Likewise a 
control-6 yields a 6 (there's no such animal as a control- 
number). BUT on a Me, control-2 comes out control-@ and 
control-6 is control-caret. No shift necessary. 

LOWER-CASE POKER 

Do a POKE 243,32 and list or run a program. With lower- 
case hardware, you will see that all upper-case has been 
demoted. If you don't have lower-case capabilities, you're 
caught looking at a bunch of garbage. 
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Everyone knows that any number larger than 63999 after a 
GOTO will result in a ?Syntax Error. But I'll bet you didn't 
know that if the number is in the range 437760 thru 
440319... 



If you've ever wanted to change the starting address for 
your Applesoft programs (so you could use text page 2, or 
for some other exotic reason), here's how it's done. 



Make this the first line START = 16384: IF PEEK (103) + 



This program shows how you can make really effective bar 
graphs on the text screen. 

10 DIM N (23): HO^ffi : NORMAL 

20 FOR I = 1 TO 23: HTAB 40: PRINT 

":";: NEXT : INVERSE 
30 RAN = INT ( RND (1) * 23) 
40 N(RAN) = N(RAN) + 1 
50 VTAB RAN + 1: HTAB 1: PRINT SPC( 

N(RAN)) CHR$ (RAN + 65); 
60 IF PEEK (36) THEN 30 
70 NORMAL : VTAB 22: PRINT CHR$ 

(7): END 



CHANGE OF ADDREFP 



of the program to be 
moved. SAVE before 
you RUN. 



PEEK (104) * 256 < > START 
THEN POKE 103, ST - INT (S 
T / 256) * 256: POKE 104, INT 
(ST / 256): POKE ST,0: PRINT 
CHR$ (4) "RUN THIS PROGRAM" 



The START of 16384 
was chosen arbitrarily. 
FP will set the starting 
address back to nor- 
mal, 2049. 



GRAFFICKY TEXT 
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Beagle Basic Index 



Applesoft 2 

BASIC, What is it? 2 

BELL 10 

Bell, Modify 11 

Changing Commands ... 13 

CLDN 10 

CLLN 10 

CLRKEY 9 

Command Editor .... 13 

Command Table 13 

Create Newbasic 4 

CRSD 10 

CRSL 10 

CRSR 10 

CRSU 10 

Cursor Commands 10 

DOS 3 

Edit 12 

ELSE 6 

Error IVIessage Editor 15 

Escape Cursor 11 

Exiting Newbasic 19 

Find 16 

FP 19 

Free Characters 13 

GOTO/GOSUB 11 

GPLE... 20 

G2 9 

Hi-Res Commands 10 

HSCRN 8 



INT 19 

Integer BASIC 2 

Inverse REMs 5 

Keychart 12 

List Formatter 5 

Main Menu 4 

Move Mode 13 

MIX 10 

MODE 10 

New BASIC Commands . . 6 

Newbasic 3 

Newbasic Loader 3 

Normalize 17 

Other Features 11 

PAGE 10 

Print Old/New 17 

Print Screen 17 

Quit 11 

Reset 19 

RESL 10 

Save Newbasic 11 

SCRLDN 8 

SCRLUP 10 

Sort 16 

Spare Characters » 13 

Standard 17 

SWAP 7 

Text & Bell Commands . . 10 

TONE 7 

TXT2 9 
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PRINTED IN SAN DIEGO 



Warranties and Limitations of Liability 

Beagle Bros warrants that this product will perform as advertised. In the 
event that it does not meet this wan-anty or any other warranty, express or 
implied, Beagle Bros will refund the purchase price of this product. 

BEAGLE BROS' LIABILITY IS LIMITED TO THIS PRODUCT'S PUR- 
CHASE PRICE. In no case shall Beagle Bros orthe author beliable for any 
incidental or consequential damages, nor for any damages in excess of 
the purchase price of this product. 

This disk includes software, APPLE DOS 3.3, owned by Apple Com- 
puter, Inc. This software is used under license from Apple. Apple mal<es 
no warranties, either express or implied, regarding Apple DOS, its mer- 
chantability, or its fitness for any particular purpose. 



"APPLE" is a registered Trade Marl< of Apple Computer Inc. 




